home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Mak244058102001.psc / String Maker / functions.bas < prev    next >
Encoding:
BASIC Source File  |  2001-08-07  |  1.2 KB  |  70 lines
  1. Attribute VB_Name = "Functions"
  2. 'Main Variables
  3. Public QuickFormatOpen As Boolean
  4.  
  5.  
  6. 'Setup Panel
  7. Public RecipientVar As String
  8. Public DataObject As String
  9. Public BrakeSymbol As Boolean
  10. Public BrakeLine As Boolean
  11.  
  12. 'String Input
  13. Public InputIsDirty As Boolean
  14.  
  15. 'String Output
  16. Public OutString As String
  17.  
  18. 'Other VArs
  19. Public DTArray(13) As String
  20.  
  21.  
  22.  
  23.  
  24. Public Sub InitStringOutput(NewOutput As Boolean)
  25. If NewOutput = True Then OutString = ""
  26. OutString = OutString & RecipientVar & " = "
  27.  
  28. End Sub
  29.  
  30. Public Sub FormatStringOutput(FullInputStr As String)
  31. Dim InputStr As String
  32.  
  33. For x = 1 To Len(FullInputStr)
  34.  
  35.  
  36. InputStr = Mid(FullInputStr, x, 1)
  37.  
  38. If InputStr = vbNewLine And BrakeLine = True Then
  39.     Select Case BrakeSymbol
  40.         Case False
  41.             OutString = OutString & RecipientVar & " = "
  42.         Case True
  43.             OutString = OutString & Chr(34) & " _" & vbNewLine & "& " & Chr(34)
  44. End Select
  45.  
  46. End If
  47.  
  48. Next x
  49.  
  50. End Sub
  51.  
  52. Public Sub SelectAll(textCont As Object)
  53. With textCont
  54.     .SelStart = 0
  55.     .SelLength = Len(textCont.Text)
  56. End With
  57.  
  58. End Sub
  59.  
  60. Public Sub Normalize(thisForm As Object)
  61. If thisForm.WindowState = vbMinimized Then
  62. thisForm.WindowState = vbNormal
  63. End If
  64.  
  65. End Sub
  66.  
  67.  
  68.  
  69.  
  70.